home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 326-350 / disk_335 / dtc / appdtc.inc < prev    next >
Text File  |  1992-05-06  |  558b  |  23 lines
  1. c Begin common APPTDTC.INC
  2.  
  3.       parameter (iwrkln = 100)
  4. C Can't use it below
  5.       character*100 workstr
  6.       character*84 apptstr
  7. C icmln
  8.  
  9. C Range of hash values (input)
  10.       integer*4 irqhash(2),
  11.      1 irchash, ihy, ihm, ihd, iht, iaptln, istart, iwkln
  12. C outputs
  13.  
  14.       INTEGER*1 appoin(icmln), work(iwrkln)
  15.  
  16.       common /apptdtc/ irqhash, irchash, ihy, ihm, ihd, iht,
  17.      1           iaptln, istart, iwkln, workstr, apptstr
  18.  
  19.       equivalence (apptstr, appoin), (workstr, work)
  20.  
  21. c End common APPTDTC.INC
  22. C -h- comdtc.inc  Tue Jul  8 16:16:24 1986
  23.